Instructies With

Met een instructie With kunt u eenmaal een object of een door de gebruiker gedefinieerd type voor een hele serie instructies opgeven. Instructies With zijn prima hulpmiddelen voor het versnellen van uw procedures en het voorkomen van herhaald intypen.

In het volgende voorbeeld wordt een bereik van cellen met het getal 30 gevuld, het lettertype op vet ingesteld en de inwendige kleur van de cellen op geel ingesteld.

Sub FormatRange()
    With Worksheets("Blad1").Range("A1:C10")
        .Value = 30
        .Font.Bold = True
        .Interior.Color = RGB(255, 255, 0)
    End With
End Sub

Om de efficiδntie te verhogen, kunt u instructies With nesten. In het volgende voorbeeld wordt in cel A1 een formule geplaatst en vervolgens het lettertype opgemaakt.

Sub MyInput()
    With Workbooks("Boek1").Worksheets("Blad1").Cells(1, 1)
        .Formula = "=SQRT(50)"
        With .Font
            .Name = "Arial"
            .Bold = True
            .Size = 8
        End With
    End With
End Sub